home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 09 (1989-09)(MindCraft Publishing)(Side A)[a].zip
/
Nibble Volume 10, No. 09 (1989-09)(MindCraft Publishing)(Side A)[a].po
/
SUMFIVE.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
370b
|
20 lines
10 PRINT "THIS PROGRAM WILL COMPUTE THE SUM""
20 PRINT "OF FIVE NUMBERS YOU SUPPLY"
30 PRINT
40 GOSUB 170
50 T = T +A
60 GOSUB 170
70 T = T +A
80 GOSUB 170
90 T = T +A
100 GOSUB 170
110 T = T +A
120 GOSUB 170
130 T = T +A
140 PRINT
150 PRINT "THE SUM OF YOUR NUMBERS IS ";T
160 END
170 PRINT
180 INPUT "ENTER A NUMBER: ";A$
190 A = VAL(A$)
200 RETURN